home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / LOOPSKY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-02-05  |  3.5 KB  |  120 lines
  1. 10  'LOOPSKY - Loop Skywire Dimensions - 05 FEB 97 rev.
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  PI=3.14159
  5. 50  U$="#####.##"
  6. 60  V$="######.#"
  7. 70  COLOR 7,0,1
  8. 80  GOTO 140
  9. 90  '
  10. 100  '.....clear bottom of screen
  11. 110  VIEW PRINT LN TO 24:CLS:VIEW PRINT:LOCATE LN
  12. 120  RETURN
  13. 130  '
  14. 140  '.....start
  15. 150  CLS
  16. 160  COLOR 15,2
  17. 170  PRINT " LOOP SKYWIRE DIMENSIONS";TAB(57)"by George Murphy VE3ERP ";
  18. 180  COLOR 1,0:PRINT STRING$(80,223);:COLOR 7,0
  19. 190  LN=CSRLIN
  20. 200  GOSUB 680
  21. 210  PRINT:COLOR 0,7:LOCATE ,2
  22. 220  PRINT " Press number for:";
  23. 230  PRINT " <1> Dimensions in metres  <2> Dimensions in feet  <0> Exit "
  24. 240  COLOR 7,0
  25. 250  A$=INKEY$:IF A$=""THEN 250
  26. 260  IF A$="0"THEN CLS:RUN EX$
  27. 270  IF A$="1"THEN UM=0.3048:UM$=" m":GOTO 310
  28. 280  IF A$="2"THEN UM=1:UM$=" ft":GOTO 310
  29. 290  GOTO 250
  30. 300  '
  31. 310  '.....inputs
  32. 320  GOSUB 100
  33. 330  INPUT " ENTER: Lowest frequency of operation (MHz)...........";F
  34. 340  GOSUB 100
  35. 350  L=1005/F*UM   'length
  36. 360  RC=L/PI/2     'radius of circle
  37. 370  AC=PI*RC^2    'area of circle
  38. 380  PRINT " Lowest frequency of operation..........";USING U$;F;:PRINT " MHz"
  39. 390  PRINT " Total length of wire in loop...........";USING U$;L;:PRINT UM$
  40. 400  PRINT " Radius of a circular loop..............";USING U$;RC;:PRINT UM$
  41. 410  PRINT " Area of a circular loop................";USING U$;AC;:PRINT UM$+"<UNK! {FD22}>;
  42. 420  PRINT " ( Area Factor = 100% )
  43. 430  COLOR 0,7:LOCATE ,22:PRINT " - R E G U L A R   P O L Y G O N S - ":COLOR 7,0
  44. 440  PRINT TAB(2)"No.of";TAB(14)"Length of";TAB(26);"Centre to";
  45. 450  PRINT TAB(38)"Centre to";TAB(50)"Enclosed";TAB(65)"Area"
  46. 460  PRINT TAB(2)"Sides";TAB(14)"each side";TAB(26);"each side";
  47. 470  PRINT TAB(38)"ea.corner";TAB(50)"  Area  ";TAB(62)"  Factor  "
  48. 480  FOR N=3 TO 16
  49. 490  S=L/N               'length of side
  50. 500  K=PI/N              'angle in rad of 1/2 segment
  51. 510  RS=S/2/TAN(K)       'distance to side
  52. 520  RP=S/2/SIN(K)       'distance to corner
  53. 530  A=N*S*RS/2
  54. 540  PRINT USING "####";N;
  55. 550  PRINT STRING$(8,".");
  56. 560  PRINT TAB(13);USING U$;S;
  57. 570  PRINT TAB(25);USING U$;RS;
  58. 580  PRINT TAB(37);USING U$;RP;
  59. 590  PRINT TAB(48);USING V$;A;
  60. 600  PRINT UM$;"<UNK! {FD22}>;TAB(62);USING "####.## %";A/AC*100
  61. 610  NEXT N
  62. 620  IF UM=1 THEN D$="feet"ELSE D$="metres"
  63. 630  COLOR 0,7:LOCATE 24,26
  64. 640  PRINT " All dimensions are in ";D$;" ";
  65. 650  COLOR 7,0
  66. 660  GOSUB 1070:GOTO 140
  67. 670  '
  68. 680  '.....preface
  69. 690  T=7
  70. 700  PRINT TAB(T);
  71. 710  PRINT "The Loop Skywire is a multi-band HF antenna consisting of a single"
  72. 720  PRINT TAB(T);
  73. 730  PRINT "horizontal full-wave wire loop, fed by either coaxial or open-wire"
  74. 740  PRINT TAB(T);
  75. 750  PRINT "line. It requires no pruning and exhibits quite acceptable bandwidth"
  76. 760  PRINT TAB(T);
  77. 770  PRINT "and SWR characteristics, especially if a transmatch is used. For"
  78. 780  PRINT TAB(T);
  79. 790  PRINT "more details see any recent edition of The ARRL ANTENNA BOOK."
  80. 800  PRINT
  81. 810  PRINT TAB(T);
  82. 820  PRINT "This program computes dimensions of regular polygons wherein all"
  83. 830  PRINT TAB(T);
  84. 840  PRINT "sides are equal and joined to each other at the same angle. These"
  85. 850  PRINT TAB(T);
  86. 860  PRINT "dimensions are useful in the preliminary design of practical loops,"
  87. 870  PRINT TAB(T);
  88. 880  PRINT "even though their final shapes will rarely be perfect polygons."
  89. 890  PRINT TAB(T);
  90. 900  PRINT "Maximum enclosed space within the wire loop is the fundamental rule."
  91. 910  PRINT
  92. 920  PRINT TAB(T);
  93. 930  PRINT "The most efficient loop is a perfect circle. All other shapes have"
  94. 940  PRINT TAB(T);
  95. 950  PRINT "less enclosed space. As a general rule, the more sides a polygon has"
  96. 960  PRINT TAB(T);
  97. 970  PRINT "and the more regular its shape, the more space it encloses for any"
  98. 980  PRINT TAB(T);
  99. 990  PRINT "given periphery."
  100. 1000  PRINT
  101. 1010  PRINT TAB(T);
  102. 1020  PRINT"The program computes dimensions for a circular loop and several"
  103. 1030  PRINT TAB(T);
  104. 1040  PRINT "polygons, including equilateral triangles and squares."
  105. 1050  RETURN
  106. 1060  '
  107. 1070  'HARDCOPY
  108. 1080  GOSUB 1190:LOCATE 25,2:COLOR 14,6
  109. 1090  PRINT " Press 1 to print screen, 2 to print screen & ";
  110. 1100  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  111. 1110  Z$=INKEY$:IF Z$="3"THEN GOSUB 1190:RETURN
  112. 1120  IF Z$="1"OR Z$="2"THEN GOSUB 1190:GOTO 1140
  113. 1130  GOTO 1110
  114. 1140  FOR QX=1 TO 24:FOR QY=1 TO 80
  115. 1150  LPRINT CHR$(SCREEN(QX,QY));
  116. 1160  NEXT QY:NEXT QX
  117. 1170  IF Z$="2"THEN LPRINT CHR$(12)
  118. 1180  GOTO 1080
  119. 1190  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  120.